﻿Public Class ClearNote

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Dir As String = "c:\Program Files\Trigsoft\Trigbase"
        System.IO.Directory.CreateDirectory(Dir)

        If (CheckBox1.Checked) Then
            System.IO.File.Create("c:\Program Files\Trigsoft\Trigbase\Subjects.bat")

            Main.SideYBox.Clear()
            Main.SideXBox.Clear()
            Main.AreaBox.Clear()
            Main.NumericUpDown1.Value = 20.0
            Main.NumericUpDown2.Value = 20.0
            Main.AnswerBox.Clear()
            Main.Label9.Text = " "
            Me.Close()
        Else
            Me.Close()
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class